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O Introducción 


N los primeros orde- 
nadores existían pro- 
blemas muy graves 
en relación con la re- 
cogida y distribución 
de la información, 
dado que se usaban 
medios muy potentes 
de resolución de problemas que mane- 
jaban muchos datos, pero conseguir reu- 
nirlos resultaba costosísimo. 

Para reunir o distribuir los datos e infor- 
maciones se emplearon en una primera 
etapa los medios convencionales de 
transporte o el correo, utilizándose últi- 
mamente los medios de comunicación, 
con transmisiones telegráficas, telefóni- 
cas o por otros medios más sofisticados. 

El uso de sistemas de telecomunicacio- 
nes a la entrada y a la salida de los sis- 
temas de computación ha mejorado no- 
tablemente la utilidad del ordenador. 
Mediante la red telefónica nacional o a 
través de líneas privadas de comunica- 
ciones, las empresas, escuelas o indivi- 
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ORDENADORES 
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Fig. 1. Red telemática de servicios integrados (RSI). 
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FUNDAMENTOS DE LAS COMUNICACIONES 


duos pueden tener acceso a ordenado- 
res situados a grandes distancias. Esto ha 
sido también un factor influyente en la re- 
ducción de los costos del acceso a la in- 
formación. 

Como vimos en el capítulo titulado Re- 
des de ordenadores cualquier tipo de in- 
formación puede llegar a los lugares más 
remotos, haciendo posible su intercam- 
bio a nivel mundial. Así se ha aumentado 
la eficiencia en las transacciones comer- 
ciales, se han enriquecido los planes de 
estudio escolares y se ha incrementado 
notablemente la información disponible 
a cualquier ciudadano. 


E Características principales 
de un sistema de teleproceso 


Los sistemas de computación de las 
décadas de los cuarenta y de los cin- 
cuenta tenían dos características funda- 
mentales. En primer lugar, todas las uni- 
dades del sistema están ubicadas física- 
mente muy próximas unas de otras, den- 


TERMINAL pc a 
IMPRESORA 


tro de un radio, generalmente, no supe- 
rior a 30 metros. La segunda peculiari- 
dad consistía en que los grupos de tarje- 
tas perforadas se agrupaban formando 
lotes o paquetes; esto tenía el inconve- 
niente de que podían transcurrir horas o 
días hasta que se obtenía el listado im- 
preso de los resultados. Procesando los 
programas por lotes, se intentaba obte- 
ner el máximo rendimiento del ordena- 
dor, pero no así la eficacia de las perso- 
nas. 


OFICINA 4 


ta, todas las unidades estaban ubicadas física- 


ÍA Fig. 2. En las décadas de los cincuenta y sesen- 
mente próximas. 


Sin embargo, aun procesando los pro- 
gramas por lotes, el ordenador estaba in- 
frautilizado. En la década de los sesenta, 
de las técnicas de tiempo compartido, 
permitió la utilización por parte de varios 
usuarios de grandes sistemas de compu- 
tación. Estas técnicas se basan en el 
aprovechamiento del tiempo. Mientras 
que utiliza el programa de un usuario se 
está procesando, se utiliza el ordenador 
para realizar la entrada/salida de los da- 
tos de otro. 

En principio, las técnicas de proceso 
en tiempo compartido fueron pensadas 


RED 
TELEFONICA 
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para usuarios que estuviesen próximos 
unos a otros: en el campus de la Univer- 
sidad, en un mismo edificio, etc. Pero al 
final de la década de los sesenta apare- 
cieron unos dispositivos llamados mo- 
dems, que permitían utilizar la línea tele- 
fónica para meter datos en el ordenador. 
Esta innovación hizo que los usuarios, tan- 
to locales como residentes en lugares 
apartados, tuviesen acceso a la informa- 
ción. Con el modem puede utilizar el or- 
denador cualquier persona que dispon- 
ga de un terminal y de una línea telefó- 
nica. 


MODEM 


ÍA Fig.3 Con la aparición del MODEM, es posible transmitir señales digitales por un canal analógico. 
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Por tanto, las principales característi- 
cas de un sistema de teleproceso son las 
siguientes: 

Entrada y salida remota. Los mensajes 
recibidos por el ordenador proceden de 
terminales remotos. Igualmente las res- 
puestas desde dicho ordenador central 
se dirigen a los terminales remotos. 

Entrada aleatoria. Cualquier terminal 
remoto puede acceder al ordenador 
central en cualquier momento. 

Proceso inmediato. Es una de las gran- 
des características que distinguen a los 
sistemas de teletratamiento de los siste- 
mas de proceso convencional. En un sis- 
tema convencional, los datos se van re- 
cogiendo de algún medio de almacena- 
miento externo según llegan, y luego to- 
das las correspondientes a un cierto pe- 
ríodo se procesan a la vez, como un lote. 


SISTEMA ON-LINE 


SISTEMA OFF-LINE 


Por el contrario, en un sistema de telepro- 
ceso, cada transacción se procesa tan 
pronto como llega y de forma individual. 

Tiempo de respuesta muy breve. Los 
sistemas que utilizan la facilidad de tele- 
proceso deben diseñarse para que el 
tiempo de respuesta sea muy breve, con 
el fin de no congestionar el sistema cen- 
tral y la red de comunicaciones, ya que 
un sistema mal diseñado puede producir 
una interferencia notoria sobre el resto: 
de la red. 

ON-LINE. Este término describe un siste- 
ma de teleproceso en el que los datos 
que llegan desde los terminales remotos 
son introducidos directamente dentro 
del ordenador central, o en el que los da- 
tos ya procesados son transmitidos direc- 
tamente desde el ordenador a la locali- 
dad donde serán utilizados. 


LINEA DE COMUNICACION 


La forma de comunicación establece 
la diferencia entre los sistemas On-Line y 
Off-Line. En el primero los datos llegan di- 
rectamente al ordenador y se tratan di- 
rectamente constituyendo, por tanto, un 
sistema de tratamiento a distancia o “te- 
letratamiento” que también permitirá de- 
volver resultados. En los sistemas Off-Line 


Fig. 4. Sistema On-Line. 
Sistema Off-Line. 


los datos los recibe un terminal, por ejem- 
plo, una lectora de cinta. Después se co- 
loca esa ficha en el lector para proporcio- 
nar los datos al ordenador. Evidentemen- 
te, un sistema On-Line precisa un hardwa- 
re y software más elaborados, la rapidez 
del proceso es mayor y el ordenador pue- 
de efectuar mayor número de controles. 


m Conmutación 


Se conoce por conmutación al conjun- 
to de funciones que se llevan a cabo 
para permitir establecer una comunica- 
ción entre terminales de una red. Entre 
las funciones a realizar para permitir el 
encaminamiento de la información de un 
terminal a otro se encuentran: 


— El direccionamiento: para codificar 
la información de forma que se identifi- 
que el destinatario. 

— El establecimiento de la ruta de da- 
tos a través de la red mediante la función 
de conmutación apropiada. 

— La gestión de prioridades: basada 
en conceptos como volúmenes de tráfi- 
co de datos, haciendo que ciertos termi- 
nales tengan más prioridad que otros en 
la comunicación. 


Términos como conmutación de pa- 
quetes son muy frecuentes cuando se ha- 
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bla de transmisión. Veamos un poco de 
qué se trata. 

Hablábamos anteriormente del esta- 
blecimiento de la ruta de datos, bueno, 
pues se puede realizar mediante: 


— Conmutación de mensajes: en esta 
modalidad de conmutación, los mensa- 
jes son enviados completos desde el ter- 
minal origen a la red; ésta los almacena 
y posteriormente los envía al terminal 
destino. 


— Conmutación de paquetes: es simi- 
lar a la conmutación de mensajes, con la 
diferencia de que la información transmi- 
tida entre terminales se fracciona en uni- 
dades menores llamadas paquetes, 
cuyo tamaño está previamente determi- 
nada. Los paquetes son enviados a la red 
independientemente. 


¡m Otras definiciones 


CONTROL 
ORDENADOR DE LINEAS comence | rms 


TELEGRAFIA 
TELEFONIA 
RADIO 
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LECTURA 
OPTICA 


En un sistema de teletratamiento se lla- 
ma fiempo de respuesta al que trans- 
curre entre la transmisión del último ca- 
rácter de la pregunta y la recepción del 
primer carácter de la respuesta. 

Un sistema en fiempo real es aquel 
cuyo tiempo de respuesta es suficiente- 
mente pequeño como para que la res- 
puesta influya en el proceso que desen- 


TELEIMPRESORES 
FACSIMIL 
ESPECIALIZADOS 


TELEFONO 
INSTRUMENTACION 


Fig. 5 Hardware de te- 
leintormática. 


cadenó la pregunta. En sistemas en los 
cuales el tiempo de respuesta es del or- 
den de algunos minutos, se suele utilizar 
el término de tiempo útil en vez de tiem- 
po real. | 

Según el tipo de aplicación, existen di- 


ferentes clases de Sistemas de Teletrata- 


miento, entre los que podemos citar: 
— De tiempo compartido. Varios usua- 


o INFORMATICA BASICA 


rios comparten el ordenador en tiempo — Derecogida de dátos. Pueden ser o 


real. no de tiempo real, y normalmente tienen 
— De consulta. Un banco de datos al fines estadísticos. 


que tienen acceso múltiples usuarios. — De distribución de información. 


3] 


[A Fig. 6. Distribución de la información. 


interrupciones 


del DOS 


L sistema operativo 
DOS (“Disk Operating 
System”) tiene aso- 
ciadas a un conjunto 
de interrupciones 
software las tareas 
más comunes que se 
realizan en los pro- 
gramas. Utiliza para ello las interrupcio- 
nes 32 a 39 (20 a 27 hexadecimal) y tie- 
ne reservadas para uso futuro de la 40 a 
la 63 (28 a 3F hexadecimal). 

El software que atiende a estas in- 
terrupciones es una parte importante del 
núcleo del DOS y, como ya se ha dicho, 
se carga en memoria en la fase de IPL. 

A continuación vamos a describir bre- 
vemente las tareas realizadas por cada 
interrupción: 

INT 20H. Terminación de progra- 
mas. Cuando termina un programa, el 
control de ejecución debe volver al DOS, 
pero antes deben realizarse las acciones 
necesarias para restaurar el estado en 
que se encontraba el DOS cuando el pro- 
grama comenzó. Estas acciones se llevan 
a cabo ejecutando la instrucción INT 20H. 
Se requiere que el registro CS tenga el 
mismo valor que cuando comenzó el pro- 
grama. 

INT 2 1H. “Function Calls”. Se denomina 
así a una larga serie de funciones que 
proporciona el DOS referentes a: 


— lectura y escritura de caracteres. 

— Gestión de ficheros. 

— Gestión de memoria. 

— Definición y petición de fecha y 
hora. 

— Ejecución de otros programas. 

— Etc. 


Las llamadas a estas funciones se rea- 
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lizan definiendo el código de la función 
deseada en el registro AH y ejecutando 
a continuación la instrucción INT 21H. Los 
datos que hay que suministrar a las fun- 
ciones y los que éstas devuelven se trans- 
fieren por medio de los registros del 8088. 

Debido al gran número de funciones 
asociadas a esta interrupción, se le de- 
dica más adelante un apartado comple- 
to a describir las funciones más interesan- 
tes. 

Dirección de terminación. La interrup- 
ción 22H no es una interrupción como las 
demás y no debe ejecutarse nunca la 
instrucción INT 22H. El DOS utiliza su apun- 
tador en el vector de interrupciones (en 
la dirección de memoria 0000:0088 
hexadecimal), para guardar ahí la direc- 
ción de terminación de los programas. 

Si desde un programa A se quiere de- 
sencadenar la ejecución de otro progra- 
ma B, antes de transferir el control a B hay 
que definir en 0000:0088 la dirección a 
donde debe volver el DOS cuando dé 
por terminado el programa B. 

Dirección de “Ctrl-Break”. La interrup- 
ción 23H tampoco es una interrupción 
como las demás y no debe ejecutarse 
nunca la instrucción INT 23H. 

Explicaremos brevemente la proble- 
mática relacionada con esta interrup- 
ción. El DOS tiene previsto que se puedan 
ejecutar acciones especiales cuando en 
el teclado se pulsen simultáneamente las 
teclas “Ctrl” y “Break”. Por ello, cuando 
el DOS detecta la citada combinación 
de teclas, ejecuta internamente la ins- 
trucción INT 23H. 

Por omisión, una rutina del propio DOS 
atiende a dicha interrupción, pero si un 
programa requiere alguna acción espe- 
cífica de “Ctrl-Break” puede colocar el 
apuntador al código que realiza dicha 
acción en la dirección de memoria 
0000:008C hexadecimal. (Que es la di- 
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rección correspondiente a esta interrup- 
ción.) 

Por otra parte, si desde un programa A 
se quiere desencadenar la ejecución de 
otro programa B, que deba realizar ac- 
ciones específicas de “Ctrl-Break”, antes 
de transferir el control a B hay que definir 
en la dirección 0000:008C el apuntador 
al código que realice dicha acción. 

INT 24H. Tratamiento de errores criti- 
cos. Cuando ocurre un error de los con- 
siderados “críticos”, como: 


— Intento de escritura sobre diskette 
protegido. 

— Unidad de diskette no preparada. 

— Falta de papel en la impresora. 

— Etc. 


el DOS ejecuta internamente una instruc- 
ción INT 24H, dando la oportunidad para 
que en los programas que se desee se 
pueda hacer un tratamiento especial de 
dichos errores. Para ello debe asociarse 
la rutina que realiza dicho tratamiento a 
esta interrupción. Es decir, debe escribir- 
se un apuntador a dicha rutina en la di- 
rección de memoria 0000:0090 (hex). 

Por omisión, la acción la efectúa una 
rutina del propio DOS. 

INT 25H. Lectura absoluta de disco. Es- 
ta interrupción del DOS utiliza el BIOS 
para realizar la lectura de los sectores es- 
pecificados de un disco o diskette, igno- 
rando totalmente la organización lógica 
del mismo (directorios, ficheros, etc.). 
Para efectuar la lectura, debe definirse: 


— El número de la unidad en el regis- 
tro AL, es decir, 0 para la unidad A, 1 
para la B, etc. 

— El número lógico del primer sector 
en el registro DX. 

— El número de sectores en el registro 
cx. 

— La dirección del área de lectura en 
los registros DS:BX. 


INT 26H. Escritura absoluta en disco. Es- 
ta interrupción utiliza igualmente el BIOS, 
para realizar la escritura de uno o más 
sectores de un disco o diskette. Para ello 
deben definirse los registros de la misma 
forma que en la interrupción anterior. 

INT 27H. Terminación de un programa 
residente. Cuando se desea dejar un 
programa residente en memoria, debe 
terminarse dicho programa ejecutando 
la instrucción INT 27H, habiendo definido 
en los registros CS:DX la dirección del 


byte siguiente al último que debe ser res- 
petado. 

A partir de ese momento, el DOS consi- 
dera a este programa como una exten- 
sión suya, respetando la memoria que 
ocupa. 

Puede haber varias razones para que 
un programa deba mantenerse perma- 
nentemente en memoria, pero el caso 
más frecuente es que dicho programa 
esté diseñado para atender alguna in- 
terrupción software. 


[uu Interrupción 21H 


Por medio de esta interrupción se pue- 
de ejecutar en gran número de funciones 
suministradas por el DOS. 

Antes de pasar a describir las funciones 
más interesantes conviene reseñar los si- 
guientes puntos: 


— “Standard input” es el dispositivo 
que se ha definido al DOS para que lo uti- 
lice como origen de los datos de deter- 
minadas funciones. Por omisión el “stan- 
dard input” es el teclado, pero el DOS 
permite cambiarlo por cualquier disposi- 
tivo del que se pueda leer, como, por 
ejemplo: línea de comunicaciones, fi- 
chero, etc. (ver “Redirección de los dis- 
positivos standard” en el manual del 
DOS). 

— “Standard output” es el dispositivo 
que se ha definido al DOS para que lo uti- 
lice como destino de los datos de deter- 
minadas funciones. Por omisión el “stan- 
dard output” es la pantalla, pero el DOS 
permite definir en su lugar cualquier dis- 
positivo sobre el que se pueda escribir, 
como, por ejemplo: impresora, línea de 
comunicaciones, fichero, etc. 

— “Standard printer” es el dispositivo 
que se ha definido al DOS para que lo uti- 
lice como destino de los datos de deter- 
minadas funciones. Por omisión el “Stan- 
dard printer” es la impresora, pero con el 
comando MODE del DOS puede cambiar- 
se para que sea una línea de comunica- 
ciones. 

— La interrupción 21H dispone de dos 
métodos de gestión de ficheros. El méto- 
do que podemos denominar «tradicio- 
nal», basado en el conce, to de FCB 
(“File Control Block”) y el método “nue- 
vo” (que es el único que vamos a descri- 


bir) en el que sólo es necesario especifi- 
car el “ASCIIZ” del fichero deseado. 

— Se denomina “ASCIIZ” de un fiche- 
ro a una cadena de caracteres ASCII 
donde se especifica secuencialmente: 


— La unidad de disco (opcional). 
— El “path” del directorio. 

— El nombre del fichero. 

— La extensión. 

— El carácter ASCII nulo (00H). 


— El flag de acarreo (CF o “carry flag”) 
desempeña un papel importante en las 
funciones relacionadas con los ficheros, 
ya que sirve para indicar si la función se 
ha realizado correctamente o si, por el 
contrario, se ha detectado algún error. 

Si se detecta algún error, la función de- 
vuelve el flag de acarreo en “on” (va- 
lor 1) y el código de error en el registro 
AX. En caso contrario, se devuelve dicho 
flag en “off” (valor 0). 

— Se denomina “Handle” de un fiche- 
ro aun código devuelto por las funciones 
de creación (3CH) o de apertura (3DH) 
que se usará para referenciar de forma 
concisa al fichero creado o abierto en 
las siguientes operaciones (lectura, es- 
critura, etc.) que se realicen con él, has- 
ta que dicho fichero sea cerrado (fun- 
ción 3EH). 

— El DOS maneja para cada fichero 
abierto un indicador de la posición sobre 
la que debe aplicar la siguiente opera- 
ción de lectura o escritura que se deno- 
mina “apuntador de lectura/escritura”. El 
valor del apuntador se actualiza en cada 
operación y puede ser definido explíci- 
tamente con la función 42H. 

— Para cada fichero que abre, el DOS 
reserva una zona de memoria que le sir- 
ve. de área auxiliar de trabajo para las 
operaciones de lectura y escritura, que 
denominaremos “buffers del fichero”. 


A continuación vamos a describir algu- 
nas de las funciones que pueden reali- 
zarse con la interrupción 21H, indicando 
para cada una el código que debe de- 
finirse en el registro AH: 

AH=1. Lectura de un carácter. Esta fun- 
ción espera hasta que se defina un ca- 
rácter en el dispositivo definido como 
“standard input”; una vez recibido, lo re- 
produce sobre el “standard output” y ter- 
mina la función devolviendo el carácter 
en el registro AL. 

AH=2. Representación de un carác- 


ter. El carácter recibido en el registro DL 
se reproduce sobre el “standard output”. 

AH=5. Impresión de un carácter. El ca- 
rácter recibido en el registro DL se impri- 
me sobre el “standard printer”. 

AH=9. Representación de una cadena 
de caracteres. Al llamar a esta función, 
la pareja de registros DS:DX deben con- 
tener la dirección de un área de memo- 
ria que contenga la cadena de caracte- 
res que se quiere representar sobre el 
dispositivo definido como “standard out- 
put”. La cadena de caracteres debe ter- 
minarse con el carácter $. En el progra- 
ma puesto como ejemplo en el tomo 10 
se utiliza esta función. 

AH=0AH. Lectura de una cadena de 
caracteres. En el momento de la llama- 
da, la pareja de registros DS:DX deben 
contener la dirección del área de memo- 
ria sobre la que se quiere recibir la cade- 
na de caracteres. El primer byte de dicha 
área debe contener su longitud (que 
debe no ser cero). Esta función lee ca- 
racteres del “standard input” y los colo- 
ca en el área especificada a partir del 
tercer byte, ya que en el segundo de- 
vuelve el número de caracteres recibi- 
dos. 

AH=3CH. Creación de un fichero. La pa- 
reja de registros DS:DX debe contener la 
dirección de un área de memoria que 
contenga el ASCIIZ del fichero que se de- 
sea crear. El atributo es un código que in- 
dica el uso que se le va a dar al fichero 
y debe especificarse en el registro CX. 
Debe definirse CX=0 para los ficheros de 
lectura/escritura. CX=1 para los de solo 
lectura, CX=2 para los ficheros ocultos y 
CX=4 para los ficheros del sistema. 

Si el fichero especificado no existe, se 
crea y se abre. Si existe y es de escritura, 
se abre para ser reescrito desde el ori- 
gen. Si existe y es de sólo lectura, se pro- 
duce el error número 5. 

Cuando la función se ejécuta normal- 
mente (flag de acarreo en off), se devuel- 
ve el “handle” del fichero en el registro 
AX. 

AH=3DH. Apertura de un fichero. La pa- 
reja de registros DS:DX debe contener la 
dirección de un área de memoria que 
contenga el ASCIIZ del fichero que se de- 
sea abrir. 

El código de acceso debe definirse en 
el registro AL. Dicho código indica si el fi- 
chero va a ser abierto sólo para lectura 
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(AL=0), sólo para escritura (Al=1) o para 
lectura y escritura (AL=2). 

Cuando la función se ejecuta normal- 
mente (flag de acarreo en off), se devuel- 
ve el “handle” del fichero en el registro 
AX, y el “apuntador de lectura/escritura” 
queda apuntando al primer byte del fi- 
chero. 


AH=3EH. Cierre de un fichero. Esta tun- 
ción cierra el fichero cuyo “handle” se 
haya especificado en el registro BX y li- 
bera los “buffers” que se le reservaron en 
la apertura. 


AH=3FH. Lectura de un fichero. El regis- 
tro BX debe contener el “handle” del fi- 
chero del que se desea leer, CX debe 
contener el número de bytes deseados, 
y los registros DS:DX deben contener la 
dirección del área de memoria sobre la 
que se desea leer dichos bytes. 

La lectura se realiza a partir de la posi- 
ción definida en el “apuntador de lectu- 
ra/escritura”, devolviendo la función en 
el registro AX el número de bytes real- 
mente leídos, que puede no coincidir 
con los solicitados si en la operación se 
llega al fin del fichero. 


AH=40H. Escritura sobre un fichero. En el 
registro BX debe especificarse el “hand- 
le” del fichero, en DS:DX debe estar la di- 
rección del área de memoria que contie- 
ne los bytes a escribir y en CX el número 
de ellos. 

La escritura se realiza a partir de la po- 
sición definida en el “apuntador de lec- 
tura/escritura” devolviendo la función en 
el registro AX el número de bytes real- 
mente escritos, que puede no coincidir 
con los solicitados si durante la opera- 
ción se ha llenado el disco. 


AH=4 1H. Borrado de un fichero. La pa- 
reja de registros DS:DX debe contener la 
dirección de un área de memoria que 


contenga el ASCIIZ del fichero que se de- 
sea borrar. 

Los ficheros que tengan el atributo de 
“sólo lectura” no pueden borrarse. Para 
borrar un fichero de este tipo, hay que 
utilizar la función 43H para cambiarle pre- 
viamente el atributo. 

AH=42H. Posicionamiento en un fiche- 
ro. Esta función sirve para modificar el 
“apuntador de lectura/escritura”. Para 
ello, el “handle” del fichero debe espe- 
cificarse en el registro BX y el “desplaza- 
miento” del “apuntador de lectura/escri- 
tura” en los registros CX:DX (la parte más 
significativa debe ir en el registro CX). Di- 
cho “desplazamiento” puede interpre- 
tarse de tres formas diferentes, depen- 
diendo del contenido de AL: 


— Si AL=0, se interpreta que el “des- 
plazamiento” es absoluto, es decir, se 
cuenta desde el origen del fichero. 

— Si Al=1, se interpreta que el “des- 
plazamiento” es relativo, es decir, se 
cuenta desde la posición previa del 
“apuntador de lectura/escritura”. 

— Si Al=2, se interpreta que el “des- 
plazamiento” está referido al final del fi- 
chero. 


Si la función termina correctamente, se 
obtiene en DX:AX el nuevo valor del 
“apuntador de lectura/escritura”. 

AH=43H. Lectura/Cambio del atributo 
de un fichero. Esta función sirve para las 
dos cosas, para leer y para cambiar el 
atributo de un fichero. Para leerlo hay 
que definir AL=0, en cuyo caso al termi- 
nar la función se obtiene el atributo en el 
registro CX. Para escribirlo hay que defi- 
nir AL=1, y el atributo deseado en el re- 
gistro CX. 

En cualquier caso, la pareja de regis- 
tros DS:DX' debe contener la dirección 
del área de memoria que contenga el 
ASCIIZ del fichero en cuestión. 


PROGRAMAS 


1 Programa: 

Carrera de 
caballos 
STE programa, que ya : Ñ ESTAS EN EL HIPODRONO,DEBES APOSTAR POR EL CABALLO QUE TU PREFIERAS. 
apareció en su ver- | HABRA UN BOTE QUE TEMDRA MAS O MENOS DINERO SEGUN LO QUE HAYAS APOSTADO. 
sión para SPECTRUM, SI GANAS TE LLEVARAS EL CONTENIDO DEL BOTE NAS. TU APUESTA. 
está realizado bajo | AL COMENZAR EL JUEGO TU PRESUPUESTO SERA DE 2000 Pts. 


GWBASIC en un IBM; 
para que pueda 
funcionar en el AMS- 
TRAD hay que realizar 
los siguientes cambios: 


PULSA UNA TECLA PARA COMENZAR LA CARRERA . 


E TES 


E k 
TES TS 
k xk k k k 
Kk KxXXxk xk A RARA OK OK 


XK A A XX -— A kk 
XX HEEE E E Y 


E EEE LEE 


ANO RARO OOOO OOOO OOO k 


* AUTOR: CARLOS DORAL *x 
ASSIOSSlOSSOIO OSOS SOI JOJK ak 


IMSS OSOS lSlS Olof kok 
X*xxx* (c) Ed. Siglo Cultural *x*xxk 
XK*X*x (Cc) 1987 Ak 
FSE OSOS” dll OOOO lOk 


F=1 TO 80 
LET A$=A$+CHR$(176) 
NEXT F 
LET ES$=CHR$(174) 
DIM C(10) 
DIM F3(10) 
FOR F=1 TO 10 
LET F$(F)=E$+STR$(F) 
NEXT F 
CLS 
LOCATE 8,6 
PRINT "ESTAS EN EL HIPODROMO, DEBES APOSTAR POR EL CABALLO QUE TU PREFIERAS. " 
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133 PRINT 

134 PRINT ” HABRA UN BOTE QUE TENDRA MAS O MENOS DINERO SEGUN LO QUE HAYAS APO 
STADO. " 

135 PRINT 

136 PRINT' * SI GANAS TE LLEVARAS EL CONTENIDO DEL BOTE MAS TU APUESTA. ” 
137 PRINT 

138 PRINT ” AL COMENZAR EL JUEGO TU PRESUPUESTO SERA DE 2000 Pts." 
139 LOCATE 20, 18 

140 PRINT "PULSA UNA TECLA PARA COMENZAR LA CARRERA. ” 
141 LOCATE 20,18 

142 PRINT SPACE$(62) 

143 LET K$=INKEYS$ 

144 IF K$="" THEN GOTO 139 

145 CLS p 

146 LET PT=2000 

147 LOCATE 10,30 

148 PRINT "TIENES “;PT;" Pts." 

149 LOCATE 20,10 

150 PRINT "( CUANTO VAS A APOSTAR (MAX. ";PT;"Pts.) "; 
151 INPUT "";B$ 

152 IF LEN (B$)<1 OR LEN(B$)>LEN(STR$(PT)) OR ASC(B$)<48 OR ASC(B$)>57 THEN LOCA 
TE 20,51:PRINT SPACES(LEN (B$)+1):GOTO 149 

153 LET AP=VAL(B$) 

154 IF AP<1 OR AP>PT THEN LOCATE 20,51:PRINT SPACE$(LEN(B$)+1):GOTO 149 
155 FOR F=1 TO 10 

156 LET C(F)=76 

157 NEXT F 

158 CLS 

159 RANDOMIZE TIMER 

160 LET BO=INT(RNDxAP) 

161 LOCATE 10,26 

162 PRINT: "EL.BOTE ES DE ";BO;". Pts.” 

163 FOR F=1 TO 3000 

164 NEXT F 

165 CLS 

166 PRINT "ELIGE CABALLO (1-10) "; 

167 INPUT "";B$ 

168 IF LEN (B$)<1 OR LEN(B$)>2 OR ASC(B$)<48 OR ASC(B$)>57 THEN GOTO 165 
169 LET NC=VAL (B$) 

170 IF NC<1 OR NC>10 THEN GOTO 165 

171 CLS 

172 GOSUB 190 

179 BT T=1 

174 FOR F=2 TO 20 STEP 2 

175 LOCATE F,76 

176 PRINT F3(1) 

177 LET I=I+1 

178 NEXT F 

179 LOCATE 18,25 

180 PRINT "PULSA RETURN PARA DAR LA SALIDA" 

181 LET K$=-INKEY$ 

182 IF K$<>CHR$(13) THEN GOTO 181 

183 LOCATE 18,25 

184 PRINT SPACE$(31) 

185 RANDOMIZE TIMER 

186 LET RN=1+INT(RNDx10) 

187 GOSUB 204 

188 GOTO 185 

189 REM 

190 REM AdRsRSSRSOORSOOOoOOololdlolololololok 

191 REM * DIBUJO DEL DECORADO x*x 

192 REM AMRSRSMS AMS lSSIS ISSO IJOIOIJOIOK 

193 REM 

194 FOR F=1 TO 80 STEP 2 

195 LOCATE 1,F 

196 PRINT CHR$(176) 

197 NEXT F 


198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
27 
218 


219" 


220 
221 
222 
223 
224 


225 


226 


221 


228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 


FOR F=3 TO 21 STEP 2 
LOCATE F, 1 
PRINT A$ 
NEXT F 
RETURN 
REM 
REM ASRSSSSOS SS SiS SOS O OOOO” olSlolo ok 
REM * IMPRESION DE LOS CABALLOS * 
REM AMSSSSSO SOS aaa ooo lolo ialajololok 
REM 
LET X=C(RN) 
LET Y=RN*x2 
LET X=X-1 
LOCATE Y,X 
PRINT F$(RN) 
LOCATE Y, X+LEN(F$(RN)) 
PRINT " * 
LET C(RN)=X 


-IF X=1 AND NC=RN THEN GOTO 220 


IF X=1 AND NC<>RN THEN GOTO 244 
RETURN 
REM 
REM ASMSS SS OO SOS SiO jo Ola lolooJok 
REM * GANA TU CABALLO ! x 
REM ASMOSSOSSOOO Ojo lOlalajololalojok 
REM 
LOCATE 21,20 
PRINT " - - ENHORABUENA , HA GANADO TU CABALLO ! ! “ 
FOR C=1 TO 6 í 
FOR F=900 TO 100 STEP -20 
SOUND F,.005 
NEXT F 
LOCATE 21,20 
PRINT SPACE$(44) 
LOCATE 21,20 
PRINT " - - ENHORABUENA , HA GANADO TU CABALLO ! ! 
NEXT C 
SOUND F,.1 
CLS 
LOCATE 10,14 
PRINT “TENIAS ";PT;" Y AHORA GANAS ";AP;" + ";BO;" = ";PT+AP+BO;” Pts.” 
LET PT=PT+AP+BO 
LOCATE 12,30 
LET A=1 
GOTO 260 
REM 
REM ASMSSOSO OSOS a jololololO KK 
REM * PIERDES LA CARRERA x* 
REM SMS OSO OSOS lSlSj>lSlolSlOOKOK di 
REM 
LOCATE 21,22 
PRINT " 0000H, - QUE LASTIMA !,HAS PERDIDO " 
PLAY "L4 03 GFED 02 L2 C" 
LET PT=PT-AP 
CLS 
IF PT>O THEN LET A=1:LOCATE 10,30:PRINT "TE QUEDAN ";PT;" Pts.":LOCATE 12,25 


:GOTO 260 


254 
255 
256 
257 
258 
259 
260 
261 
262 
263 


IF PT<1 THEN LOCATE 10,15:PRINT "SIENTO DECIRTE QUE NO TE QUEDA MAS DINERO. " 
FOR. F=1 TO 2000 

NEXT F 

LET A=2 

LOCATE 12,25 

REM 

REM aMSN SS SlOlSlSlS SiS lSOS SES S SOS lSlOlSSOjOIOOK 

REM * QUIERES JUGAR OTRA VEZ? (S/N) * 

REM MSN S SIS” SES lSjSlS”SSE Ojal ldlol”jalajok 

REM 
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264 PRINT " 
265 LET K$=INKEYS$ 


267 IF A=2 THEN IF K$="S" OR K$="s" 
268 IF K3="N" OR K3$="n" THEN END 
269 GOTO 265 


AMSTRAD: 

122 LET AS=A$+CHR$(207) 

124 LET ES=CHR$(242) 

130 MODE 2 

131 LOCATE 6,8 

139 LOCATE 18,20 

141 LOCATE 18,20 

147 LOCATE 30,10 

149 LOCATE 10,20 

152 IF LEN/B$<1 OR LEN(BS)>LEN(STR(PT)) 
OR ASC(B$)<48 OR ASC(BS)>57 THEN LÓ- 
CATE 51,20:PRINT SPACES(LEN(BS)+1):GO- 
TO 149 

154 IF AP<1 OR AP>PT THEN LOCATE 
51,20:PRINT SPACES(LEN(BS)+1):GOTO 149 
159 RANDOMIZE TIME 

160 LET BO=INT(RND(1)'AP) 

161 LOCATE 26,10 

175 LOCATE 76,F 

179 LOCATE, 25,18 

183 LOCATE 25,18 

185 RANDOMIZE TIME 

186 LET RN=1+INT(RND(1)'10) 

195 LOCATE F, 1 

199 LOCATE 1,F 

211 LOCATE X.Y 

224 LOCATE 20,21 

228 REM 

230 LOCATE 20,21 

323 LOCATE 20,21 

235 REM 

237 LOCATE 14,10 

240 LOCATE 30,12 

248 LOCATE 22,21 

250 REM 

253 IF PT>0 THEN LET A=1:LOCATE 
30,10:PRINT “TE QUEDAN”;PT;” PTS.”:.LOCA- 
TE 25,12:GOTO 260 

254 lF PT<1 THEN LOCATE 15,10:PRINT 
“SIENTO DECIRTE QUE NO TE QUEDA MAS DI- 
NERO.” 

258 LOCATE 25,12 


Este programa simula una carrera de 


266 IF A-1 THEN IF K$="S" OR K$="s" THEN CLS:GOTO 147 
THEN GOTO 130 


( QUIERES SEGUIR JUGANDO (S/N) ? ” 


caballos donde tú podrás apostar el di- 
nero que quieras por alguno de los caba- 
llos. 


¡A Fig. 2. Preparados para jugar. 


Según el dinero que apuestes, se crea- 
rá un bote con más o menos dinero. Di- 
nero que te llevarás, junto con lo que 
apuestes, en caso de que gane tu caba- 
llo de carrera. 


O Programa: Reflejos 


El siguiente programa, realizado origi- 
nariamente en un AMSTRAD, nos permiti- 
rá ver qué reflejos tenemos. 


10 REM add SRSlO llo flOJOK 


20 REM xxkx REFLEJOS KAxk 
30 REM xxx Un programa realizado Xxx 
40 REM *xx Por KA XK 
50 REM *xx*x* Carlos A. Maria Morin xxx 
60 REM x*xxx ps. 
70 REM xxx (C> Ediciones XXX 
80 REM X**x Siglo Cultural 1987 xxx 


90 REM AaaMIAlIS lll lll 
100 REM 

110 MODE 2 

120 CLEAR 

130 LOCATE 35,1 

140 PRINT”REFLEJOS” 

150 LOCATE 1,2 


160 INPUT "Introduce digitos MAX(10):”;nu 


170 IF nu>10 THEN 110 
180 FOR i=1 TO 10 
190 CLS 


200 rn=INT(RND(1>)*x100000+RND(2>*x10000> 


210 IF rn<500 THEN 200 

220 x=(rn+x>:zs=100000000+1 

230 g=12X*Xx: x=8-INT(g/zs)>*zs 

240 y=INT(10"nukx/zs)>+1 

250 IF y<10”(nu-1) THEN 220 

260 SOUND 1,500,15:s=INT(RNDx(79)>+1 
270 w=INTCRNDx(24)>)+1 

280 LOCATE s,w 

290 PRINT USING "AHAHAHHARAR" ; y 
300 FOR e=1 TO 7OX*XLEN(STRS(y)> 
310 NEXT 

320 CLS 

330 rn=rn+1 

«S4UO” ERINT 1250: 

350 INPUT "Respuesta=”;re 

360 CLS 

370 IF re=y THEN GOTO 530 

380 IF re<>y THEN GOSUB 580 

390 pr=pr+1 


400 IF pr=1 THEN PRINT”PRIMER FALLO”: FOR q=1 TO 3000: NEXT 


410 IF pr=2 THEN PRINT"SEGUNDO FALLO”: FOR q=1 TO 3000: NEXT 
420 IF pr=3 THEN PRINT"TERCER FALLO”: FOR q=1 TO 3000: NEXT 
430 IF pr>4 THEN PRINT"SOBREPASA TU FACULTAD MEMORISTICA.”:GOTO 490 


440 FOR q=1 TO 3000 
450 NEXT 
460 NEXT i 


470 PRINT"PORCENTAJE DE ACIERTOS=";1000x1/100;'%" 
480 IF (1000*x1/100)<=70 THEN PRINT"ME HAS FALLADO........ ” 


490 PRINT”)Pruebas de nuevo? (S/N>”; 


500 nus$=INKEYS: IF nus$<>”S” AND nusS<>”"s” 


510 IF nu$="S” OR nu$="”s” THEN 110 
520 END 

530 LOCATE 36,12 

540 PRINT”*Xx*xCORRECTOXx” 

550 SOUND 1,50,15 

560 1=1+1 

570 GOTO 430 


AND nus$<>”N'” AND nu$<>”n” THEN 500 
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600 FOR q=1 TO 3000 
610 NEXT 
RETURN 


El ordenador nos mostrará un número 
en la pantalla durante un breve espacio 
de tiempo. A continuación nos pregunta- 
rá por dicho número. Si somos rápidos 
podemos adivinarlo. 


El número de cifras de dicho número lo 
podemos definir al principio del progra- 
ma. 


El programa funciona perfectamente 
en el MSX y IBM con sólo cambiar las si- 
guientes líneas: 


110 REM 
260 S=INT(RND*79)+1 
550 REM 


En el caso del IBM hay que cambiar de 
orden todos los argumentos de las sen- 
tencias LOCATE. 


y 
y 
mi 
pi 
4 
Ñ 
"il 
NO 
" 
: 
ñ 
e) V 
' 


») Ml 

> FEMESRES || 

2 BEO0OOOOS 
TOSBENES E 


ID FESNOSEN 


PROGRAMA: DISENADOR DE CARACTERES 


10 REM ddoeSRSiORSSOOSlOjook 
20 REM * DISENADOR * 


580 PRINT"YO TENIA: "¡USING "HHHHRRRERRA" ¡y 
590 PRINT”TU TENIAS:”;USING "HHHHHAHHAHR" ¡re 


Diseñador de caracteres 
(UDG) para el SPECTRUM 


El siguiente programa que vamos a ver 
nos permitirá definir nuestros propios ca- 
racteres en el SPECTRUM. Poco hay que 
explicar sobre el programa, ya que es 
autoexplicativo. Aun así, diremos algu- 
nas de sus características. 


— Posibilidad de tener 10 bancos dis- 
tintos de caracteres. 

— Inversión de caracteres. 

— Rotación y giro de caracteres. 

— Pizarra para ver los caracteres defi- 
nidos. 

A Grabación y lectura en y desde ca- 
sete. 


30 REM x D E * 

40 REM *CARACTERES. * 

50 REM A*MSSSSSlOlESjOlOOIOK 

55 REM 

60 REM dsSRSSSNdOO ESOS SjSSPlEO OOO Ok 
70 REM *(c)Ed. Siglo Culturalx* 


80 REM *x(c)1987. k 
90 REM AaSSSSISISISIO OSOS lOIOIOIOIOIOK 
95 REM 


100 INK O: PAPER 7: BORDER 7: CLS 
110 DEF FN 1(A)=A-256xINT (A/256) 
120 DEF FN h(A)=INT (A/256) 
130 POKEF” 23658,8 

140 REM 

145 REM AdSSS PSSS IS lSSIOlOIOISIOIOK 
150 REM * CREADOR DE UDG'*S x 
160 REM * INICILIZACION.  *X 
162 REM AdoSdaRSSSSNO ESOO lojojok 
165 REM 

170 CLEAR 63687 

180 LET DIRBAS=863688 

190 LET BANCO=0 

200 PRINT AT 11,2; FLASH 1;"POR FAVOR, ESPERE MEDIO MINUTO" 
210 FOR g=0 TO 9 

220 LET t=-8*x168+dirbas 

230% TOR 1=0 TO 167 

240 POKE T+i,PEEK (USR "a"+i) 
250 NEXT i 

260 NEXT 8 

270 GO SUB 3090 

280 RESTORE 330 

290 FOR I=USR "A" TO USR "B"+7 
300 READ A 

310 POKE I,A 

320 NEXT I 

330. DATA 0), 136.,868,.66,86:60,.12630, 0, 120, 126, 126,128, 120,320), 0 
340 CLS 

350 LET x1=0 

360 LET y1=0 

370 LET 1=32 

380 LET m$="Definicion"” 

390 GO SUB 2830 

400 LET x1=16 

410 LET 1=13 

420 LET y1=2 

430 LET m$="Pizarra" 

440 GO SUB 2830 

450 LET x1=3 

460 LET 1=9 

470 LET m$="Grafico" 

480 GO SUB 2830 

490 LET y1=16 

500 LET x1=0 

510 LET. 1=32 

520 LET m$="Opciones" 

530 GO SUB 2830 

540 DIM g$(8,8) 

550 DIM P$(8,9) 

560 FOR i=1 TO 8 

570 LET g$(1)="AAAAA AAA" 

580 NEXT i 

590 GO SUB 3130 

600 GO SUB 2980 

610 PLOT 143,144 

620 DRAW 73,0 

630 DRAW O, -65 

640 DRAW -73,0 
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650 DRAW 0,65 

660 GO SUB 3180 

670 GO SUB 3250 

680 LET c$="A" 

690 LET x=3 

700 LET y=4 

710 GO SUB 3310 

711 REM 

712 REM AMSSSSOIRIRIRIESIOlOIOIRIOlOL 

720 REM * BUCLE PRICIPAL x 

721 REM ASS SOSIOSIOlOIOROIORO Ok 

722 REM 

790 :PRENT AT YX; 

740 PAUSE 12: ,1F INKEY$<>"" THEN PRINT AT Y,X;G$(Y-3,X-2): GO TO 770 
750 PRINT AT Y, X;G$(Y-3,X-2) 

760 PAUSE 12 

770 LET A$=INKEYS$ 

780 IF A$<"9" AND A$>"0" THEN GO TO 840 

790 LET X=X+(A$="P" AND X<10)-(A$="0" AND X>3) 
800 LET Y=Y+(A$="A” AND Y<11)-(A$="Q" AND Y>4) 
810 IF A$<:" " THEN GO TO 730 

220 LET G$(Y-3,X-2)=("A" AND G$(Y-3,X-2)="B")+("B" AND G$(Y-3,X-2)="A") 
3830 GO TO 730 

831 REM 

832 REM AMSSSIdSISISIOIOIOK 

840 REM * OPCIONES * 

842 REM AMesRRMIESIOololork 


843 REM 

850 BEEP .1,24 

860 IF A$="1" THEN GO SUB 970: GO TO 940 
870 IF A$="2" THEN GO SUB 1050: GO TO 940 
880 IF A$="3" THEN GO SUB 1210: GO TO 940 
890 IF A$="4" THEN GO SUB 1270: GO TO 940 
900 IF A$="5" THEN GO "SUB 1640: GO TO 940 
910 IF A$="6" THEN GO SUB 2090: GO TO 940 
920 IF A$="7" THEN GO SUB 2650: GO TO 940 
930 IF A$="8" THEN GO SUB 2710 


940 INPUT "": PRINT $1;" 0,P,Q,A-Mover 1-8 Opciones" 
950 BEEP .1,24 

960 GO TO 730 

961 REM 

962 REM AMM IS OSSISMISIOlOISIOLOKOK 

970 REM * CAMBIO DE BANCO x* 

972 REM ASOMO ISSO ISO lSISJOKOJAK 

973 REM 

980 INPUT "Seleccione banco (1-9) ";b 
990 IF b>9 OR b<0 THEN GO TO 3470 
1000 LET BANCO=B 

1010 LET DIRBAS=63688+168x*BANCO 

1020 GO SUB 2980 

1030 GO SUB 3180 

1040 RETURN 

1041 REM 

1042 REM AMoSoSS SIS IOlSIOlSSISIOIOIOJOK 

1050 REM * ASIGNA CARACTER *x 

1052 REM AdMRVIRIARIOSIASIOISIOIORDIOROK 

1053 REM 

1060 INPUT "Caracter (A-U) 7? "; LINE b$ 
1070 IF b$>"U” OR b$<"A" THEN GO TO 3470 
1080 LET c$=-b$ 

1090 GO SUB 3130 

1100 FOR g=1 TO 8 

110" EE ESO 

1120"ERT T2=128 

1130 TOR 1=1"P0 8 

1140 LET t=t+(T2 AND g$(8,1)="B") 
LLSOEET+TE=STZ Ze 


NEXT i 

POKE USB C$+G 1,T 

NEXT E 

GO SUB 2980 

RETURN 

REM 

REM SOS OIO SISSI ll JOIOIOJOK 
REM *COPIA DE UN CARACTERx* 
REM *A LA PARRILLA. k 
REM AOSSIOOIOROIMIOIO OSIRIS: 
REM 

INPUT "Caracter (A-U) 7? "; LINE b$ 
IF B$>"U" OR B$<"A" THEN GO TO 3470 
LET C$=B$ 

GO SUB 3310 

RETURN 

REM 

REM ASSOIOOIOIOIOIOIOR K 

REM * SAVE/LOAD + 

REM ASS MOOSIOIOOIO kk 

REM 


INPUT INVERSE 1;"S"; INVERSE 0;"ave o "; INVERSE 1;"L" 


"5 LINE b$ 

IF b$:>"3"” AND b$-.>"L" THFN GO TO 3470 
LET xi-=0 

LET YES 

LET m$="Save" 

LET L=352 

IF b$:"L" THEN LEFT mt-"Louad” 

GO SUB 3510 

GO SUB 2330 

INFUT "Nombre (Max. 10 caracteres)" ” 
IF LEN n$>10 THEN GO TO 1550 

IF B3-"L" THEN GO TO 1490 

REM 

REM 4 

REM * SAVE * 


LINE n$ 


Ll. REM AA doo 


REM 
IF N$="" THEN GO TO 1550 


O SAVE NEFCODE DIRBAS, 168 


INPUT "Desea verificar 7 (S/N) 
IR BS” N* "TREN. O: TO ISO 


“; LINE b$ 


PRINT AT 17,0; "Ponga en marcha el cassette" 


* PRINT AT-1770% 


VERIFY niCODE dirbas, 1683 


2 GO TO 1570 


REM 


2 REM AMOO 
) REM * LOAD *x 


REM Add 
REM 


PRINT AT 17,0; Ponga en marcha el cassette" 


LOAD n$CODE dirbas, 163 

GO SUB 2980 

GO SUB 3180 

GO TO 1570 

REM 

REM MRS SOS SIS Ol IOlSlOlOJOJOK 
REM * ERROR EN EL NOMBRE +* 
EOS 
REM 

GO SUB 3470 

GO SUB 3510 

LET X1=0 

LET Y1=16 


, 


INVERSE 0;"oad ? ( 
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1600 LET M$="Opciones” 

1610 GO SUB 2830 

1620 GO SUB 3250 

1630 RETURN 

1631 REM 

1632 “REM ASS S SOS lSlOlSjS SOS lSjSIOJOJOJOK 
1640 REM *EDICION DE LA PIZARRAX*x 
1642 REM AaSldRSRlSlSSIRlSlSISjSlSlOlSlSlOIOjSlOIOK 
1643 REM 

1650 GO SUB 3510 

1660 LET Xi=0 

1670 LET Y1=16 

1680 LET M$z"Edicion de pizarra" 
1690 LET 1=32 

1700 GO SUB 2830 


1710 PRINT AT 18,0; INVERSE 1;"5"; INVERSE 0;","; INVERSE 1;”"6"; INVERSE 0;","; 
INVERSE 1;"7"; INVERSE 0;","; INVERSE 1;"8"; INVERSE 0; "-Movimiento del cursor." 


? INVERSE 1;"SPACE"; INVERSE O0;"-Borra el caracter." 


1720 PRINT AT 20,0; INVERSE 1;"A"; INVERSE 0;"-"; INVERSE 1;"U"; INVERSE 0; "-Pon 


er caracter en la pizarra" 

1730 PRINT AT 21,0; INVERSE 1;"ENTER"; INVERSE 0;"-Finaliza edicion." 
1740 LET X2=-18 

1750 LET Y2=4 

1751 REM 

1752 REM. ho dd dd add dd dk ok 

1760 REM * BUCLE DE LA EDICION x 


1761 REM * DE LA PIZARRA. k 
1762 REM SAS ISISISIOIOISIOIOJOK: 
1763 REM 


1770 FOR I=1 TO 8 

1780 FOR G=1 TO 9 

1790 LET B$=P$(1,G) 

1800 IF B$<>" " THEN LET B$=CHR$ (CODE B$-79) 

1810 LET P$(1,G)=B$ 

1820 NEXT G 

1830 NEXT 1 

1840 GO SUB 3180 

1850 BEEP .1,24 

1860 PRINT AT Y2,X2; PAPER 2;" 

1870 PAUSE 10 

1880 IF INKEY$<>"" THEN PRINT AT Y2,X2;P$(Y2-3,X2-17): GO TO 1910 
1890 PRINT AT Y2,X2;P$(Y2-3,X2-17) 

1900 PAUSE 10 

1910 LET A$=INKEY$ 

1920 IF A$=CHR$ 13 THEN GO TO 1980 

1930 LET X2=X2+(A$="8" AND X2<26)-(A$="5" AND X2>18) 
1940 LET Y2=Y2+(A$="6" AND Y2<11)-(A$="7" AND Y2>4) 
1950 IF A$<>" " AND (A$<"A" OR A$>"U") THEN GO TO 1860 
1960 LET P$(Y2-3,X2-17)=A$ 

1970 GO TO 1860 

1971 REM 

1972 REM ata SJSJSIOIOIOIOIOIOIOJOJOK 

1980 REM *SALIDA DE LA OPCION 5x 

1982 REM aaa SSA SSSSJSIOIOJOIOIOIOIOJOJOK 

1983 REM 

1990 BEEP .1,24 

2000 FOR I=1 TO 8 

2010 FOR G-1 TO 9 

2020 LET B$=-P$(1,G) 

2030 IF B$<>" " THEN LET B$=-CHR$ (CODE B$+79) 

2040 LET P3(1,G)=BS$ 

2050 NEXT G 

2060 NEXT I 

2070 GO SUB 3180 

2080 GO TO 1570 

2081 REM 

2082 REM ASSSSSORSRSIRSIEORESIO RIOR 


2090 REM * OPERACIONES EXTRA * 

2092 REM dE lSORSISOISIOISIOIOJOJOKOK 

2093 REM 

2100 GO SUB 3510 

2110 LET X1=0 

2120 BET Y1=16 

2130 LET L=32 

2140 LET M$-= "Opciones extra" 

2150 GO SUB 2830 

2160 PRINT AT 18,0; INVERSE 1;"1"; INVERSE 0;"-Volver al menu"; INVERSE 1;"4"; pl 

NVERSE 0;"-Espejo horiz."” INVERSE 1;,"2"; INVERSE 0; "-Invertir.", INVERSE 1;"5"; 
INVERSE 0;"--Rotar izq." 

2170 PRINT AT 20,0; INVERSE 1;"3"; INVERSE 0;"-Espejo vert.", INVERSE 1;"6"; INV 

ERSE 0;"-Rotar derecha." 

2180 LET a$-INKEY$ 

2190 IF A$>"6" OR A$<"1" THEN GO TO 2180 


2200 BEEP .1,24 

2210 IF a$="1" THEN GO TO 1570 
2220 IF a$="2" THEN GO SUB 2300 
2230 IF a$="3" THEN GO SUB 2380 
2240 IF a$="4" THEN GO SUB 2450 
2250 IF a$="5" THEN GO SUB 2540 


2260 IF a$="6" THEN GO SUB 2590 
2270 BEEP .1,24 

2280 GO SUB 2920 

2290 GO TO 2180 

2291 REM 

2292 REM AMMSS SISSI ISISISIOISIOIOJOIJOK 
2300 REM *INVERSION DE CARACTER* 
2302 REM AMS lSISIOISIOIOIOJOJK 
2303 REM 

2310 FOR I=1 TO 8 

2320 FOR G=1 TO 8 

2330 IF G$(1,G)="A" THEN LET G$(1,G)="B": GO TO 2350 
2340 LET G$(1,G)="A" 

2350 NEXT G 

2360 NEXT I 

2370 RETURN 

2371 REM 

2372 REM ddIdS IMSS lla ISSO: 
2380 REM * ESPEJO VERTICAL * 
2382 REM Add SISSI lol dldldlObIOJOIOK 
2383 REM 

2390 FOR I=1 TO 4 

2400 LET B$=G$(1) 

2410 LET G$(1)=G$(9-1) 

2420 LET G$(9-1)=B$ 

2430 NEXT 1 

2440 RETURN ” 
2441 REM 

2442 REM eRRRMSISIS SISI lalSSlSjOIOIOJOJOK 
2450 REM * ESPEJO HORIZONTAL x* 
2452 REM oddSS SHE ISO lO lSlO lla lO lajojOJOK 
2453 REM 

2460 FOR G=1 TO 8 

2470 FOR I=1 TO 4 

2480 LET B$=G$(G, 1) 

2490 LET G$(G, I)=G$(G, 9-1) 

2500 LET G$(G, 9-1)=B$ 

2510 NEXT 1 

2520 NEXT G 

2530 RETURN 

2531 REM 

2532 REM RRHSlSlTS ld lFASSjMjSjOJOJOJoJoK 
2540 REM * ROTAR IZQUIERDA * 
2542 REM dYSSMSSSdSldlSITSljVJOK 
2543 REM 
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2550 FOR 'I=1 TO 8 

2560 LET G$(1)=G$(1,2 TO )+G$(1,1) 
2570 NEXT I 

2580 RETURN 

2581 REM 

2582 REM ddRRSOSlS SOS lOlOlAJOJOK 

2590 REM * ROTAR DERECHA * 

2592 REM dedSSSS SOS OOOO JOKK 

2593 REM 

2600 FOR I=1 TO 8 

2610 LET G$(1)=G$(1,8)+G$(I, TO 7) 
2620 NEXT I 

2630 RETURN , 

2640 STOP 

2641 REM 

2642 REM AdddddOlOlOOIElOK 

2650 REM * BORRADO *x 

2652 REM deSSSISOIEOKOK 

2653 REM 

2660 FOR I=1 TO 8 

2670 LET G$(I)="AAAAAAAA" 

2680 NEXT I 

2690 GO SUB 2920 

2700 RETURN 

2701 REM 

2702 REM daddSdSISOISlOlS OO lOlOJOJOK 

2710 REM * VUELTA A BASIC *x 

2712 REM ASS SSOIOIOIOIOJOK 

2713 REM 

2720 GO SUB 3510 

2730 LET X1=0 

2740 LET Y1=-16 

2750 LET L=32 

2760 LET M$="Programa abandonado" 
2770 GO SUB 2830 

2780.PRINT AT 18,0;"Para volver al programa, teclear CONTINUE" 
2790 STOP 

2800 GO TO 1570 

2810 LET X=5: LET Y=5 

2820 RETURN 

2821 REM 

2822 REM ddRalRlOSIRSlOlOlSlElOlSj]loljolOlOIÓOlOK 
2830 REM *COLOCA ENCABEZAMIENTOX 
2832 REM AdsdSS SS lE SIS SlOlSJSlSlOJSlSlOjOJOIOK 
2833 REM 

2840 FOR i=175-y1*8 TO 175-y1*8-7 STEP -2 
2850 PLOT x1x8, i 

2860 DRAW 1*x8-1,0 

2870 NEXT i 

2880 INVERSE 1 

2890 PRINT AT y1,x1+INT ((1-LEN m$)/2);m$ 
2900 INVERSE O 

2910 RETURN 

2911 REM 

2912 REM ebdeldlaSlRlOlOlSlolOlOjolojolololak 
2920 REM * ESCRIBE PARRILLA *x 
2922 REM AadSR OSOS SIS lSjSlPISlOIOJOKOK 
2923 REM 

2940 FOR g=4 TO 11 

2950 PRINT AT g,3;8$(8-3) 

2960 NEXT 8 

2970 RETURN 

2971 REM 

2972 REM dRdRlRMSlS POIS lSlSlSlOlESlSlOISlPIOIOK 
2980 REM * PRINT BANCO EN USO x* 
2982 REM eddldSlMlSlSlOlSlSlPlEf”lPlSlOlOlOJOJOK 
2983 REM 


3000 
3010 
y" 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3081 
3082 
3090 
3092 
-3093 
3100 
3110 
3120 
3121 
3122 
3130 
3140 
3142 
3143 
3150 
31650 
3170 
SL 7A 
34.22 
3180 
3182 
3133 
3190 
3200 
3210 
3220 
3230 
3240 
3241 
3242 
3250 
DESZ 
253 


3260 


3270 


asic. 


3280 
3290 
3300 
3301 
3302 
3310 
33d 
JLS 
3313 
3320 
3230 
3340 
3350 
3350 
3370 
3380 
3390 
3400 


GO SUB 3130 


PRINT AT 13,0;"Banco :"; INVERSE 1;banco; INVERSE 0;": 


PRINT AT 14,10; 

FOR i=144 TO 164 

PRINT CHR$ i; 

NEXT i 

GO SUB 3180 

GO SUB 3090 

RETURN 

REM 

REM ASSSSSOOSSa Sa lolO lO alajololololakok 
REM *COLOCA EL SET NORMALX 
REM ARSS SNS SOS OSOS OlOlElOOKOk 
REM 

POKE 23675,88 

POKE 23676,255 

RETURN 

REM 

REM OSOS OOO Saa ldlOiOlololOjojok 
REM *COLOCA EL SET MARCADOXx 


REM *POR DIRBAS. k 
REM ROSSO SISSI IOJOJOK: 
REM 


POKE 23675,FN L(DIRBAS) 
POKE 23676,FN H(DIRBAS) 
RETURN 

REM 

REM ASS SSISIOIOIOIOJOK 
REM * SACA PIZARRA * 
REM AdMSSOSSPSlSIOlSlOjojOOK 
REM 

GO SUB 3130 

FOR I=1 TO 8 

PRINT AT 4+1--1,18;P$(1) 
NEXT 1 

GO SUB 3090 

RETURN 

REM 

REM SMS ISISlSISISIOOlOK 

REM * EDITA MENU x*x 

REM SSI lolo 

REM 


ABCDEFGHIJKLMNOPQRST 


PRINT AT 18,0; INVERSE 1;"1"; INVERSE 0;"-Cambia banco. ", INVERSE 1;"5"; IN 
VERSE 0;,"-Edita pizarra. "; INVERSE 1;"2"; INVERSE 0;"-Set UDG. ", INVERSE 1;"8"; 

INVERSE 0;"-Extras. " 
PRINT AT 20,0; INVERSE 1;"3"; INVERSE 0;"-Copia.", INVERSE 1;,"7"; INVERSE O 
;"-Borra.", INVERSE 1;,"4"; INVERSE 0;"-Save/Load.", INVERSE 1;"8"; INVERSE 0;"-B 


INPUT. "” 

PRINT $1;" 0,P,Q,A-Mover 1-8 Opciones” 
RETURN 

REM 

REM ORO IOlSlSlO lO lOJoJOX 


REM * COPIA DEL UDG * 
REM * A LA PARRILLA +* 
REMO ARO OO OSOS OdOk 
REM 

GO SUB 3130 

DIM G3(8,8) 

FOR G=1 TO 8 

LET T=PEEK (USR C$+G-1) 
LET T2=128 

FOR 1=1, TO 8 

LET gti, 1)="A" 

LET T3=T=TZ 

IF T3>=0 THEN LE? T=T9: LET este, 1)="B" 


/ 


a PROGRAMAS 


LET T2=T2/2 
3420 NEXT I 

3430 NEXT G 

3440 GO SUB 3090 

3450 GO SUB 2920 

3460 RETURN 

3461 REM 

3462 REM AoSSSSSS SS SjSlPSOOlSjSjOjOJOJOK 

3470 REM *ERROR EN UNA ENTRADAX* 

3472 REM ASdSSSSORS SOS PSSISOSlISIOlOOJOK 

3473 REM 

3480 BEEP 1,0: PRINT $1;TAB 7; FLASH 1;"ERROR:OPCGION ANULADA" 
3490 PAUSE 200 

3500 RETURN 

3501 REM 

3502 REM AdMSNOS SISPRO SSP RSIPPIEJojolOk 

3510 REM * BORRADO DE LA PARTE *x 

3511 REM * DESTINADA AL MENU.  *x 

3512 REM ASSRSRSSRSS SS SjSSOSOSjOlSjOlPIEJOK 

3513 REM 

3520 FOR I=16 TO 21 

3530 PRINT AT 1,0;" 

3540 NEXT I 

3550 INPUT "" 

RETURN 


BASES DE DATOS 


NA de las “herramien- 
tas” más comúnmen- 
te utilizadas hoy en 
día en las aplicacio- 
nes informáticas son 
los “sistemas de ges- 
tión de bases de da- 
tos” (SGBD). En efec- 
to, no es concebible ya un sistema infor- 
mático de envergadura media o grande 
en que se gestionen las informaciones 
mediante comandos dados directamen- 
te en el lenguaje de programación en 
que se haya preparado el resto de los 
procesos. 

Están disponibles los grandes SGBD's, 
de los que hablaremos a continuación, 
pero también hay pequeños (aunque no 
por ello menos eficaces) sistemas de ma- 
nejo de datos a nivel de los ordenadores 
personales: DBASE Il y lll, PFS, SYMPHONY, 
FRAMEWORK, etc. 

Tal como define C. Chrisment, una base 
de datos es “un conjunto estructurado de 
informaciones, agregadas o elementa- 
les, accesible por un grupo de utilizado- 
res”. Los objetivos fundamentales que se 
pretenden conseguir con la implementa- 
ción de una base de datos, objetivos vi- 
tales en un gran sistema informático 
pero, también, útiles en cualquier siste- 
ma personal o profesional, son: 

A. Centralizar y unificar la informa- 
ción. Con esta centralización se suprime 
la redundancia de informaciones (cada 
dato está almacenado solamente una 
vez en el sistema); la búsqueda de una 
información se realiza en un solo sitio 
(menos tiempo de búsqueda y más segu- 
ridad en la localización de los datos); 
además, se centralizan los controles, las 
actualizaciones periódicas, los procesos 
comunes, etc. 
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B. Asegurar la independencia entre 
datos y procedimientos. Es una ventaja 
específica de los sistemas de gestión de 
bases de datos: por definición, todo sis- 
tema de este tipo debe contar con herra- 
mientas adecuadas para la definición de 
los datos y su estructura, independiente- 
mente de los recursos que aporte para el 
manejo posterior de estos datos (es el 
propio SGBD quien se encarga de definir 
y mantener los procedimientos que ase- 
guren la relación entre los procesos ex- 
ternos que deben acceder a los datos y 
los propios datos). Esta misma indepen- 
dencia y la propia concepción del SGBD 
permiten, si es necesario posteriormente, 
reestructurar cómodamente las informa- 
ciones ya almacenadas en la base de 
datos. 

C. Relacionar datos de distintos pro- 
cesos. Uno de los problemas cotidianos 
del analista es definir, controlar y asegu- 
rar el adecuado mantenimiento de los 
datos comunes a varias aplicaciones. Si 
se implementa una base de datos común 
accesible desde varios procesos, la inte- 
gridad de los datos, su coherencia, su es- 
tabilidad, etc., están asegurados por el 
propio SGBD, sin intervención adicional 
del analista. 

D. Asegurar la integridad de los da- 
tos. Tanto por la cualidad ya reseñada 
de unificar los datos como por los propios 
sistemas automáticos de manejo de las 
informaciones, los SGBD's aportan una 
mayor garantía de que, en el transcurso 
del tiempo, no se va a a deteriorar la in- 
tegridad de los datos que se mantienen 
en la base de datos. 

E. Aportar la necesaria confidenciali- 
dad. No es una cualidad intrínseca a los 
SGBD's, pero la mayoría de ellos aportan 
una serie de controles de confidenciali- 
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ACTIVACION 
DE DATOS 


dad (básicamente bajo la fórmula de pa- 
labras clave) que garantizan una mayor 
seguridad en el manejo de informacio- 
nes confidenciales, tanto en entornos de 
funcionamiento monousuario como en 
entornos multiusuario. 

F. Fiabilidad en la “compartición” de 
datos. Un elemento clave de cualquier 
SGBD está formado por los mecanismos 
que aseguran la adecuada gestión de 
los datos, en entornos complejos: existen 
sistemas que controlan los conflictos que 
pueden surgir cuando dos procesos dis- 
tintos intentan acceder a un mismo dato, 
se suelen aceptar operaciones bajo la 
forma de “transacciones” complejas (en 
una “transacción” se agrupan varias 
operaciones que deben ir ligadas, de tal 
modo que sólo son efectivos los cambios 
realizados en la base de datos cuando 
se ha concluido la transacción comple- 
ta, evitando de este modo actualizacio- 
nes parciales —erróneas— de la base de 
datos), y otros mecanismos complejos de 
gestión de datos. 


El administrador de la base 
de datos 


Aunque el SGBD produce de un modo 
automático la gestión de todas las infor- 
maciones involucradas en el sistema, es 
necesario mantener una coordinación 


Arquitectura de un sistema informático que in- 
corpora un sistema de gestión de Bases de Da- 
tos (SGBD). 


entre todos los usuarios y hay que definir 
las estructuras subyacentes en la base y 
los procesos generales de mantenimien- 
to y/o actualización del sistema. Todas 
estas tareas suelen ser realizadas por 
una misma y única persona, experta en 
el SGBD de que se trate y en los lengua- 
jes de definición y manipulación de da- 
tos correspondientes, que se suele llamar 
“administrador” de la base de datos. Son 
tareas específicas del administrador de 
la base las siguientes: 


— diseñar el esquema de la base de 
datos y los subesquemas necesarios; 

— decidir las técnicas de acceso a la 
base; 

— decidir los sistemas concretos de 
implantación física; 

— establecer la relación del SGBD con 
utilizador (o utilizadores); 

— definir una estrategia de relanza- 
miento, en caso de que se produzca al- 
gún incidente; 

— medir las características del siste- 
ma (capacidades, tiempos de acceso, 
volúmenes, etc.) y decidir modificacio- 
nes si son necesarias. 


Naturalmente, para realizar estas ta- 
reas el administrador de la base debe ser 
un experto en el SGBD que se esté utili- 
zando, por lo que suele actuar de sopor- 
te técnico a los utilizadores del sistema. 


Manejo de la 


a pantalla 


(continuación) 


ONTINUANDO con el 
ejemplo que comen- 
zamos en el capítulo 
anterior (la prepara- 
ción de una pantalla 
adecuada para un 
juego de guerra es- 
pacial), vamos a ver 
ahora cómo podemos escribir la informa- 
ción que debe aparecer en cada uno de 
los campos de la pantalla y cómo pode- 
mos conseguir que el programa sepa 
cuá! de las teclas ha sido presionada 
para realizar una acción determinada. 

En primer lugar, recordemos la distribu- 
ción de los campos en la pantalla: 


(3,44) 


(9,78) 


(24,60) 


(24,6) 


Tres de los campos sólo tienen una lí- 
nea: aquellos cuya esquina superior iz- 
quierda se encuentra en los puntos (2,6), 
(13,6) y (24,6) (recuérdese que la posi- 
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ción de un punto en la pantalla queda 
definida por el número de la fila y la co- 
lumna donde se encuentra). Por tanto, 
escribir en cada uno de ellos la informa- 
ción deseada es muy fácil. Basta con co- 
locar el cursor en la posición correspon- 
diente (la posición inicial del campo) y 
escribir el texto deseado utilizando la fun- 
ción PRINT: 


1000 LOCATE 2 
1010 PRINT Tinta de corto alcance" 


1020 LOCATE 13,6 
1030 PRINT "Pantalla de largo alcance” 
1040 LOCATE 24,6 

1050 PRINT "1:NAV 2:CAÑ 3: TOR 4: ESC 

5: DAÑ 6: COM 10:FIN” 


Rellenar un campo de varias líneas es 
sólo un poco más complicado, pues hay 
que escribir idependientemente cada 
una de las líneas y colocarse al principio 
de cada una con su correspondiente ins- 
trucción LOCATE. 

Por ejemplo, supohgamos que lo que 
se ve en la pantalla de corto alcance lo 
tenemos en la variable QAS$, que ha sido 
definida previamente como una tabla o 
matriz de 8 filas y 27 columnas. Esta infor- 
mación vamos a presentarla en el cam- 
po cuya esquina superior izquierda se 
encuentra en el punto (3,6). Este campo 
tiene, sin embargo, 10 filas. La primera y 
la última están reservadas para escribir 
dos líneas horizontales que enmarquen 
la pantalla de corto alcance. 

Para escribir toda esta información, lle- 
nar el campo y construir la pantalla de 
corto alcance, podremos utilizar el si- 
guiente programa: 
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DIM 0$(8,27) 
1100 LOCATE 3,6 

VITOTPRENT A A A 
1120 FOR I=1 TO 8 

1130 LOCATE 1+3,6 

1140 FOR J=1 TO 27 

1150 PRINT Q$(1,J)3 

1160 NEXT J 

1170 NEXT 1 

1180 LOCATE 12,6 

/1190 PRINT "___ hi 


WA A A A AAA AAA A A A AAA OA OA SAO N 


Observemos este programa: en la línea 
10 se ha definido la variable QA$ como 
una tabla o matriz de 8 filas y 27 colum- 
nas. En alguna parte intermedia del pro- 
grama (representada aquí por los puntos 
suspensivos) se habrán asignado a esta 
variable los valores adecuados (caracte- 
res, pues A$ es una variable de tipo lite- 
ral). Ahora, en la instrucción de etiqueta 
1100, ha llegado el momento de escribir- 
los en la pantalla. Esto se consigue reali- 
zando los siguientes pasos: 


1. La primera línea del campo (que 
ha de rellenarse con una línea horizontal) 
se escribe exactamente igual que en los 
ejemplos anteriores: hace falta una ins- 
trucción LOCATE para colocar el cursor 
en el punto deseado, y una instrucción 
PRINT, para escribir el mensaje corres- 
pondiente. 

2. Ahora escribimos las líneas inter- 
medias, cada una de las cuales corres- 
ponde a una fila de la matriz. Por tanto, 
tenemos que formar un bucle de progra- 
ma que vaya recorriendo, una a una, di- 
chas filas. Este bucle está comprendido 
entre las instrucciones 1120 y 1170.La va- 
riable que controla este primer bucle y 
señala sucesivamente a cada fila se lla- 
ma | en el ejemplo. 

3. Al principio de cada fila tenemos 
que colocar el cursor en la línea de la 
pantalla correspondiente. Obsérvese 
que la primera fila debe escribirse a par- 
tir del punto (4,6); la segunda, a partir del 
punto (5,6); y asi sucesivamente. Por tan- 
to, sil es igual al número de la fila que AS 
que vamos a escribir, el cursor deberá 
colocarse en el punto (l+3,6). Esto es lo 
que conseguimos con la línea 1130. 

4. Ahora hay que escribir una fila en- 
tera de QS utilizando la función PRINT. Lo 
que haremos será construir un nuevo bu- 


cle y escribirla carácter a carácter. Este 
bucle (que abarca desde la instrucción 
1140 hasta la 1160) está controlado por 
la variable J, que, naturalmente, varía de 
1 a 27 (pues QS$ tiene 27 columnas). 

5. La instrucción PRINT, de etiqueta 
1150, se ejecuta, por tanto, 27 veces a 
medida que vamos escribiendo en la 
pantalla una línea de la matriz. Obsérve- 
se que, para evitar que el cursor se nos 
mueva al principio de la línea siguiente 
de la pantalla, hemos terminado esta ins- 
trucción con un punto y coma. Con ello 
conseguimos que los 27 caracteres va- 
yan apareciendo sucesivamente, unos al 
lado de otros, en la posición deseada. 

6. Cuando termina la ejecución del 
segundo bucle (porque J ha alcanzado 
el valor 27), debe continuar la ejecución 
del primero (es decir, el valor de | se in- 
crementa en una unidad). Entonces, si to- 
davía no hemos alcanzado el valor 8, se 
vuelve a repetir todo el proceso, escri- 
biéndose una nueva línea. En total, la ins- 
trucción 1150 se ejecuta 8 x 27 = 216 ve- 
a una por cada carácter de la matriz 
Q 


7. Finalmente, una vez terminados los 
dos bucles, escribimos en la pantalla la 
segunda línea horizontal, que cierra el 
campo por debajo. Para ello necesitare- 
mos de nuevo una instrucción LOCATE y 
otra PRINT. 


De igual manera procederemos con la 
pantalla de largo alcance, cuya informa- 
ción suponemos que se encuentra en la 
variable AS, que es una matriz de 3 filas 
y 12 columnas. Veamos el programa 
correspondiente, que no vamos a deta- 
llar: 


20 DIM A$(3,12) 


1200 FOR I=i TO 3 
1210 LOCATE I1+13,6 
1220 FOR J=1 TO 12 
1230 PRINT A$(1,J); 
1240 NEXT J 

1250 NEXT 1 


Esta vez no hemos dibujado dos rayas 
horizontales enmarcando el campo. 

Finalmente, veamos el campo donde 
aparece el informe condensado de la si- 


tuación de la nave. Vamos a considerar 
únicamente dos líneas de este campo 
(las demás son análogas). La primera lí- 
nea presentará la fecha estelar en que 
nos encontramos, cuyo valor tendremos 
en la variable T. La segunda presentará 
la condición general de la nave que, de- 
pendiendo de las circunstancias, puede 
ser una de las siguientes: «NORMAL», 
«ALERTA ROJA», «ALERTA AMARILLA» O «EN 
PUERTO». Supondremos que, en este mo- 
mento, la condición es «NORMAL». Vea- 
mos la parte del programa que escribiría 
estas dos líneas: 


LOCATE 3,44 
1310 PRINT "FECHA ESTELAR” 
1320 LOCATE 3,60 

1330 PRINT T 

1340 LOCATE 4,44 

1350 PRINT "CONDICION” 

1320 LOCATE 4,60 

PRINT "NORMAL (VERDE) " 


Obsérvese que cada línea de este 
campo la hemos pintado en dos veces. 
De esta forma conseguimos que los valo- 
res de las variables que indican la situa- 
ción de la nave comiencen todos en la 
misma columna, lo que facilita la lectura 
y mejora el aspecto de la pantalla. 

Veamos cómo quedará la pantalla des- 
pués de pasar el programa completo: 


KE 


Sólo falta saber cómo puede el progra- 
ma darse cuenta de que el jugador ha 
presionado una tecla determinada. Para 
ello utilizaremos otra instrucción BASIC: 


AS$=INKEYS 


que comprueba si la persona sentada al 
terminal ha presionado recientemente 
una tecla. En caso afirmativo, asigna a la 
variable A$ el carácter correspondiente 
a dicha tecla. En caso negativo, le asig- 
na una cadena de caracteres vacía (una 
cadena de cero caracteres). El carácter 
leído no se imprime en la pantalla, al re- 
vés de lo que ocurre automáticamente 
en la instrucción INPUT. (El nombre AS 
puede variar, pero siempre deberá tra- 
tarse de una variable de tipo literal.) 

El programa siguiente utiliza la instruc- 
ción INKEYS para esperar hasta que se 
presione una tecla, proporcionándonos 
entonces el carácter correspondiente a 
la tecla presionada en la variable TS. 


9000 T$6=INKEYS$ 
9010 IF T$="" THEN GOTO 9000 


Se verá que la instrucción 9010 devuel- 
ve de nuevo control a la instrucción 9000 
(y realiza una nueva operación INKEY $) si 
el resultado obtenido fue la cadena de 
caracteres vacía (representada por dos 
dobles comillas seguidas). Es decir, mien- 
tras la persona sentada al terminal no 
presione alguna tecla, la operación IN- 
Y$ se repetirá continuamente. 


PAS Y. 


1:NAV 2:CAR 3: TOR 4:ESC S:DAÑ 6:COM 10: FIN 


Open Access 


PEN “ACCESS constitu- 
ye el más famoso pa- 
quete integrado que 
actualmente se pue- 
de encontrar en el 
mercado. La gran in- 
tegración de todos 
sus módulos, incluida 
la facilidad de manejo y su gran poten- 
cia, hacen de este paquete una de las 
más poderosas herramientas para orde- 
nadores personales. 


Fig. 1. Pantalla de opciones de Open Access. 


Este paquete está compuesto por seis 
módulos: 


— Base de datos. 

— Hoja electrónica. 

— Procesador de textos. 
— Agenda. 

— Comunicaciones. 

— Gráficos. 


Que, sin duda, resultarán más que sufi- 
cientes para la mayoria de los usuarios. 
El ordenador requiere un numero de 
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192 K de memoria, y aunque funcionara 
sin problema con dos unidades de disco, 
es recomendable instalar un disco duro, 
para evitar, de esta forma, la introduc- 
ción repetida de disketes. En cuanto a las 
impresoras, el programa permite sopor- 
tar varios modelos distintos, tales como: 
EPSON, C-ITOH, NEC, etc. 


Base de datos 


A diferencia de otros programas en el 
que la hoja de cálculo constituye el mó- 
dulo central, en OPEN ACCESS este módu- 
lo lo constituye la base de datos. 

Esta base de datos es de tipo relacio- 
nal, permitiendo el manejo simultáneo 
de hasta cinco ficheros, en los que el 
máximo número de registros es de 
32.000, con 56 campos cada uno. 

La recuperación de datos de los fiche- 
ros se realiza a través de un lenguaje que 
incluye únicamente cuatro comandos: 
DE, ELIGE, CUYO y ORDEN, que resultan 
más que suficientes en la mayoría de las 
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[A Fig. 3. Pantalla de ayuda. 


aplicaciones. Este módulo permite ma- 
nejar hasta 15 campos clave por fichero. 
El lenguaje que utiliza la base de datos 
permite la creación fácil de pantallas 
para la introducción de datos, así como 
la generación de informes. 


Hoja de cálculo 


La hoja de cálculo de OPEN ACCESS 
permite un manejo de 3.000 filas y 
216 columnas. 

Una de las ventajas de la hoja elec- 
trónica es la rapidez con que efectúa sus 
cálculos, ya que utiliza la técnica de la 


logra y 


te) e 1904, International, Inc. 


Menú Principal de Comunicaciones 


Terminal Conectar 
Recibir Registrar 


Modem Servicio Enviar 
Desconectar Liberar_Linea Ventana 
' Guardar Borr. 4w 
Impr_Fichero Utilidades Activar_SAC Derinir_SAC Ooc:ones 
<ejec) (flechas) (no ejec) Cimpr) (estado) (formato) (cambiar 


lA Fig. 4. Opciones de comunicaciones. 


memoria virtual, procedimiento que con- 
sigue una rápida ejecución de los cálcu- 
los, unido a una gran capacidad de al- 
macenamiento. 

La hoja electrónica de OPEN ACCESS 
permite presentar hasta seis ventanas in- 
teractivas, de tal forma que es posible re- 
lacionar los distintos modelos de hojas 
de cálculo entre sí. 

Además, dispone de las funciones típi- 
cas de una hoja de cálculo, como son: 
funciones matemáticas, estadísticas, ló- 
gicas y otras; permite la persecución de 
objetivos, en los que se conoce el resul- 
tado final, pero se desconoce alguno de 
los datos que conducen a él; OPEN AC- 
CESS se encarga entonces de calcular 
las incógnitas. 

La comunicación con los otros módulos 
es total, excepto con la agenda, con la 
que no es posible comunicarse directa- 
mente. 


O Gráficos 


OPEN ACCESS permite la confección de 
gráficos tanto bidimensionales como tri- 
dimensionales, tanto de barras, líneas o 
pastel. Este módulo toma los datos de la 
hoja electrónica, del procesador de tex- 
tos, de la base de datos y del módulo de 
comunicaciones. Este módulo gráfico in- 
cluye la posibilidad de realizar gráficos 
independientes, como si fueran dispositi- 
vos, que pueden ser llamados directa- 
mente y mandados a otros módulos del 
programa. En cada gráfico se pueden 
cambiar las texturas, el color o la pers- 
pectiva, permitiendo incluir cabeceras, 
ples y títulos. 


¡O Agenda 


La agenda constituye un complemen- 
to a los otros módulos del programa, per- 
mitiendo la planificación de citas y com- 
promisos, así como el manejo de un fi- 
chero con direcciones y telefonos con- 
sultables en cualquier momento. Este mó- 
dulo incluye un calendario en el que se 
pueden incluir notas, y que se genera 
analógicamente o a partir de la ficha del 
sistema. 
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| Fig. 5. Opciones de base de datos. 


Comunicaciones 


Este módulo es el encargado de comu- 
nicar el OPEN ACCESS con otros progra- 
mas y ordenadores, utilizando para ello 
la salida RS-232, permitiendo seleccionar 
la velocidad de transmisión y generar un 
directorio telefónico, así como realizar 
llamadas de forma automática. 


| Tratamiento de textos 


El procesador de textos ofrecidos por 
OPEN ACCESS se encuadra dentro de la 
norma, es decir, ofrece lo que puede dar 
cualquier otro programa de estas carac- 
terísticas. 

Dispone de todas las funciones norma- 
les de insertado, borrado, movimiento de 
bloques, copias, etc. 

El usuario puede moverse por el texto 
con las teclas de control del cursor, defi- 
nir el formato de texto e incluso incluir 
textos acabados en el que tenga en cur- 
SO, 

Otras características del referido trata- 


miento de textos es la posibilidad de 
crear abreviaturas, 10 en total, función 
útil cuando se ha de repetir una palabra 
numerosas veces en un mismo texto. 
También se pueden definir tipos de 
párrafos y confeccionar el texto contfor- 
me a la estructura creada (máximo de 
ocho definiciones). 


La impresión ofrece las posibilidades 
comunes de cabeceras, pies, subcabe- 
ceras, determinación de la longitud de 
página. Acepta la inclusión de gráficos 
en el documento y distingue atributos re- 
lativos al tipo de letra, como subrayado, 
itálica, negrilla. 

Siguiendo la tónica general del paque- 
te, el módulo de tratamiento de textos 
también utiliza la técnica de ventanas 
para mostrar los comandos y otras fun- 
ciones. 

Está presente asimismo la posibilidad 
de dividir la pantalla para visualizar dos 
textos simultáneamente. Este módulo 
puede comunicarse con cualquiera de 
los módulos restantes, excepto la agen- 
da electrónica. 


Fig. 6. Opciones del procesado de textos. 
Modelo de la memoria de un ordenador. 
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'm Un programa 
experto 


OMO último ejemplo 
de aplicación de las 
estructuras árbol, va- 
mos a desarrollar un 
programa que, ma- 
nejando una base de 
datos, sea capaz, por 
una parte, de, a base 
de formular preguntas, dar con la res- 
puesta a un determinado problema y, 
por otra parte, de ir ampliando la infor- 
mación de esa base de datos a partir de 
las respuestas obtenidas. 

Los programas capaces de manejar el 
conjunto de conocimientos de un exper- 
to en un determinado área del saber hu- 
mano para ponerlo de manera eficaz al 
alcance de otras personas, se denomi- 
nan “programas expertos” y constituyen 
uno de los aspectos más importantes de 
lo que se ha dado en llamar “inteligen- 
cia artificial”. 

El programa que vamos a desarrollar, 
de una gran sencillez, se encuentra a mu- 
chísima distancia de lo que se entiende 
hoy día por programa experto, pero, no 
obstante, puede servir para dar una pri- 
mera idea de en qué consiste la inteli- 
gencia artificial. 

En concreto, nuestro programa va a ser 
capaz de ir preguntando diferentes ca- 
racterísticas de animales hasta dar con 
uno que se ajuste a todas las respuestas 
que le hayamos facilitado. Cuando el 
animal deducido no sea el que debiera, 
el programa intentará obtener nueva in- 
formación. Empecemos a construirlo. 

Supongamos que la primera vez que 
corremos el programa éste carezca de 
datos: no sabría qué preguntar; por ello, 
habrá que poner ya de entrada en el 
programa un mínimo de información. Por 
ejemplo, la primera vez el programa pre- 
guntará directamente por un animal en 
concreto, digamos, la mosca. Si acerta- 


¿es un mamífero? 


ra, ahí acabaría todo. Sin embargo, ima- 
ginemos que el animal que habíamos 
pensado fuera el perro. 

Al contestar al programa que no era la 
mosca, éste nos debería preguntar qué 
animal constituye la solución (el perro) y 
alguna propiedad que lo distinga de la 
mosca (ladra). Con esta nueva informa- 
ción, al siguiente intento de descubrir un 
animal, el programa debería preguntar 
primero si ladra, para, según fuera la res- 
puesta, preguntar a continuación por el 
perro o por la mosca. De esta manera el 
ordenador iría “aprendiendo” nuevos 
animales y nuevas preguntas que hacer 
antes de preguntar por uno en concreto. 

Supongamos que, en un momento 
dado, la primera pregunta de todas fue- 
se “¿es un vertebrado?”. Si la respuesta 
a ella fuera SI, habría que hacer a conti- 
nuación alguna pregunta lógica para 
vertebrados, por ejemplo “¿es de sangre 
caliente?”, mientras que si hubiera sido 
NO, la siguiente pregunta debería ser dis- 
tinta. Para saber la secuencia de pregun- 
tas a hacer podríamos utilizar un esque- 
ma como el siguiente: 


¿es un vertebrado? 


UT, 


¿es de sangre caliente? ¿es un insecto? 


¿vuela? 
si | no 


y así hasta llegar a preguntar por un ani- 
mal en concreto. 

Salta a la vista que la estructura resul- 
tante es de tipo árbol; para llevarla a la 
práctica bastaría con utilizar registros 
con un campo para guardar la pregunta 
y otros dos de tipo puntero para indicar 


sí no 
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a qué registros se debe acudir según la 
respuesta. Tras los nodos que preguntan 


program Animales; 


const 
LongPreg 


50; 


type 
Preg_t = 
Punt_t = "Ficha_t; 

Ficha_t = record 
Pregunta: Preg_t; 


end; 


Veamos ahora el procedimiento para 
determinar la secuencia de preguntas a 
partir de un nodo dado: 


“Mirar en árbol desde el nodo tal:” 

¿Es un nodo final? 

SI: Preguntar por el animal que contiene. 
— Si se ha acertado, se acabó. 


— Si se ha fallado, preguntar en qué ani- 
mal se ha pensado y sus propieda- 
des, ampliar con ello el árbol y termi- 
nar. 


NO: Formular la pregunta que contiene. 


— Si la respuesta es SI, mirar en árbol 
desde el nodo indicado por el punte- 
ro QuesSi. 


— Si la respuesta es NO, mirar en árbol 
desde el nodo indicado por el punte- 
ro QueNo. 


Como se ve, el procedimiento es recur- 
sivo, pues se llama a sí mismo. Para em- 
pezar una búsqueda se llamaría al pro- 
cedimiento desde el programa principal 
para “mirar en árbol desde el nodo raíz”. 


Veamos ahora cómo ampliar el árbol 
con nueva información. Supongamos 
que se ha llegado a un nodo final que 
contiene “el león” y que la respuesta ha 
sido NO. Si el animal resultara ser “el 
perro” y la propiedad que lo distingue 
“ladra”, deberíamos pasar de la situa- 
ción: 


(Xk máximo número de caracteres por pregunta X*) 


array [(1..LongPreglJ of char; (* para las preguntas X) 


,/ QueSi,QueNo: Punt_t 


por animales concretos no habría más re- 
gistros. El programa empezaría así: 


(modo anterior) 


¿es el león? 


a la situación: 


(modo anterior) 


| 


¿ladra? 


A, 


¿es el perro? ¿es el león? 


o sea, antes de preguntar por el león, 
preguntar si ladra por si acaso es el 
perro. El procedimiento sería: 


“Ampliar el árbol en el nodo tal:” 


1. Reservar sitio para dos nuevos regis- 
tros a los que apunten QueSi y Que- 
No. 

2. Guardar en el primero de ellos el nue- 
vo animal y hacer sus dos punteros 
iguales a NIL (es un nodo final). 

3. Guardar en el segundo el animal por 
el que se preguntó y hacer sus dos 
punteros iguales a NIL. 

4. Guardar la propiedad distintiva en el 
nodo en cuestión. 


El programa definitivo queda así: 


program Animales; 


const 
LongPreg = 50; (k máximo número de caracteres por pregunta X*X) 
(kX si se cambia, retóquese también el principio del programa  X) 


type 
Preg_t = array [1..LongPregl of char; (* para las preguntas *X) 
Punt_t = *Ficha_t; 
Ficha_t = record 
Pregunta: Preg_t; 
QueSi,QueNo: Punt_t 
end; 
var 


Raiz: “Ficha_t; (%* Sirve para apuntar al nodo raíz X*) 


(kx Escribe la pregunta quitando lo que sobra por la %) 
(kX derecha para que la interrogación quede pegada.  X) 


AAA A a a x) 

AN A *) 
function Long: integer; 

OM Tm x) 

(* Devuelve la longitud real de T *X) 

OÍ x) 

var l: integer; Parar: boolean; 

begin 


I:= LongPreg; 
Parar:= false; 
while (I > 0) and mot Parar do 


14 (TC1IT <> ? ”?) and (TC(1IT <> chr(0)) then Parar:= true 
else Il ¿= I-1; 
Long:= 1 
end; 
MASSA a a e a a e e a a e a a e e e e e e e *x) 
var l: integer; 
begin 
for Ia= 1 Lo Lona do write 1T1t1J)> 
end; 
AAA A o a a in 8) 
function Afirmativo: boolean; 
(om AS A x) 
(k Lee respuesta yv devuelve TRUE si ha sido SI 4) 
TR - ... s.m. mr A € e o e e e e ¿< --X) 
var Es har 7 
begin 
write (2? (S/N) *);5 
readlin (0); 
Aftirmativo <= (€ <> ?*n”) and 1(1€0 <> *N*2 
end; 
AA A A A A A A A A A A A A A A A A A A A A A A A x) 
procedure Ampliar (Q: Punt_t); 
a A A x) , 
(k* Amplia el árbol en el nodo apuntado por Q X) 
AA A A e e e e e e e e e a o e e a e e e PE) 
var Copia: Ficha_t:; 
begin 
with Q7 do 
begin 


new (QueSi); 

new (QueNo):; 

writeln; 

write (*¿Qué animal es? (con "el" o "la" por delante): ?); 
readln (QueSi”.Pregunta); 

QueSi”.QueSi:z:= nil; 

QueSi”.QueNo:= nil; 


QueNo”.Pregunta:= Pregunta; 


QueNo”. QueSi s= nil;z 
QueNo”. QueNo ¿= mil; 
repeat 


witeln (”Déme una propiedad que lo distinga:”):; 
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readin (Pregunta); 
writeln (*Entonces, si pregunto:”); 
write (*¿£*)3 PlanteaPregunta (Pregunta); writeln (* >); 
write (?y la respuesta es SI, ¿puedo suponer que es ”); 
PlanteaPregunta (QueSi”.Pregunta) 

until Afirmativo; 


writeln; 
writeln ("Gracias. Hasta otra.”) 
end 
end; 
A A A A AS, A A AO AN 
procedure BuscaEn (P: Punt_t); 
a 1) 
(k Avanza por el árbol desde el nodo apuntado por P *) 
(xk a. 1) 
var C:z char; 
begin 
with P” do 
if (QueSi = mil) and (QueNo = nil) then (k si es final: Y) 
begin 
write (*¿es ?):3 , 
PlanteaPregunta (Pregunta); 
if mot Afirmativo then Ampliar (F) 
else begin writeln: writeln (*Vale, hasta otra.) end: 
end 
else 
begin 
write .(*2*);3 
PlanteaPregunta (Pregunta); 
if Afirmativo then BuscaEn (QueSi) 
else BuscaEn (lueNo) 
end 
end; 
A A A --£) 
begin 


(x Al principio sólo hay un modo que por fuerza ha de ser final: *> 
new (Raiz); 
with Raiz” do 
begin 
Pregunta:=”"la mosca 
QueSi ¿= nil; 
QueNo ¿= mil 
end; 


repeat 

witeln; 

BuscaEn (Raiz); 

writeln; , 

write (*¿Desea seguir”); 
until not Afirmativo 
end. 


MODULA-2 (IV) 


M Acceso 
a bajo nivel 


ORMALMENTE en los 
lenguajes de alto ni- 
vel, es decir, con un 
cierto nivel de abs- 
tracción sobre la má- 
quina en la que se 
trabaja, se eliminan 
las referencias a las 
operaciones más simples realizadas por 
el ordenador. Esto obliga al programador 
a concentrarse en su programa de la for- 
ma más genérica posible, olvidándose 
de los detalles más pequeños de poca 
importancia para el funcionamiento glo- 
bal del programa. La abstracción más útil 
e importante es la de los tipos de datos, 
que permiten una gran potencia al dise- 
ñar programas un poco complicados. 
Como ventaja adicional a estas facilida- 
des se encuentran las comprobaciones 
lógicas que, de forma automática, son 
realizadas por la máquina para detectar 
algunos de los posibles errores cometi- 
dos al escribir el programa. 

A pesar de ello existen ciertas circuns- 
tancias en las que es necesario acceder 
directamente a los recursos de bajo nivel 
de la máquina. Por ser el MODULA-2 un 
lenguaje de uso general se han incluido 
algunas de estas funciones. Debemos 
advertir que, por ser difícil de comprobar 
de forma automática, deben ser usadas 
con mucho cuidado. Debemos conocer 
en todo momento qué es lo que estamos 
haciendo, de otra forma podemos cau- 
sar daños en el programa, con lo que se 
quedaría “colgado” sin responder a las 
indicaciones del teclado. 

Los detalles concretos varían de un 
compilador a otro, ya que dependen del 
ordenador sobre el que esté implemen- 


OTROS LENGUAJES 


tado. Por ello se colocan en el módulo 
SYSTEM, debiendo consultarse el manual 
de nuestro compilador concreto para 
conocer los detalles. 

La memoria de un ordenador está or- 
ganizada como una serie de “casillas” 
con una dirección (ADDRESS) dentro de 
la cual se almacena un cierto número de 
bitios; este conjunto de bitios se conoce 
como palabra (WORD). La longitud de la 
palabra es variable, dependiendo del 
ordenador. 


DIRECCION (ADDRESS) 


4 —————- PALABRA (WORD) 
5 


6 
7 
8 
: Modelo de la memoria 
de un ordenador 


Estos dos tipos están relacionados se- 
gún la siguiente definición de tipos: 


TYPE 
ADDRESS = POINTER TO WORD; 


Para acceder al contenido de la pala- 
bra se usará alguna de las funciones de 
cambio de tipo. Si queremos acceder al 
número almacenado en ésta utilizaremos 
CARDINAL O INTEGER; si, por el contrario, 
queremos acceder a los bits de la pa- 
labra utilizaremos la función BITSET. Este 
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tipo hace coincidir el estado de los bitios 
de la palabra con la pertenencia al con- 
junto de números que identificarían a di- 
cho bitio dentro de la palabra; por ejem- 
plo, si el bit 5 está a '1', el número 5 
pertenecerá al conjunto denotado por 
dicha palabra. 

Existen diversas funciones que nos indi- 
can el tamaño que ocupa una determi- 
nada variable (SIZE) o un determinado 
tipo de datos (TSIZE). Ambas son del tipo 
CARDINAL. 

La función ADR nos da la dirección fisi- 
ca a partir de la cual se almacena la va- 
riable y es de tipo ADDRESS. 

Estas facilidades en el manejo de las 
variables sirven para poder saltarnos el 
sistema de almacenamiento de datos 
generado por el compilador; permitien- 
do acceder, con un propósito determina- 
do, a una dirección concreta de memo- 
ria, como en los casos de ordenadores 
con la entrada salida mapeada sobre la 
memoria principal. 

Un posible módulo de definición sería: 


DEFINITION MODULE SYSTEM; 
EXPORT QUALIFIED 
WORD, ADDRESS, PROCESS, ADR, SIZE, 
TSIZE, NEWPROCESS, TRANSFER, ...; 
TYPE WORD; ADDRESS; PROCESS; 
PROCEDURE ADR (X) : ADDRESS; 
PROCEDURE SIZE (VAR V) : CARDINAL; 


PROCEDURE TSIZE (T): CARDINAL; 
PROCEDURE NEWPROCESS (P:PROC;A:AD- 
DRESS;¡N:CARDINAL;¡VARQA:PROCESS); 
PROCEDURE TRANSFER (VAR, P,: PRO- 
CESS); 


END SYSTEM. 


Los puntos suspensivos indican otras 
caracteristicas propias del compilador. 


Procedimientos y corrutinas 


Los procedimientos pueden ser mane- 
jados muy versátilmente en MODULA. No 
existen las funciones, ya que se puede 
asociar un tipo de datos con un procedi- 
miento, lo que sería equivalente a la 
FUNCTION de PASCAL. 

Cada procedimiento se puede asociar 
con un proceso, de forma similar a como 
se manejan los punteros, por lo que se 
pueden crear corrutinas, procedimientos 
que se ejecutan simultáneamente. 

Por ejecutarse en ordenadores con un 
solo procesador no pueden ejecutarse 
exactamente al mismo tiempo, pero se 
reparten el tiempo, lo que para el caso 
es casi lo mismo desde el punto de vista 
del usuario. 

También permite el uso de corrutinas 
que se activan mediante interrupciones. 
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